home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 045a / tpapi1.zip / NWWRKSTN.PA1 < prev    next >
Text File  |  1991-12-04  |  4KB  |  72 lines
  1. {!R! FONT 15; FTMD 15; EXIT;}
  2.  
  3.  
  4. {***************************************************************************}
  5. {** Program : NWWRKSTN                                                    **}
  6. {***************************************************************************}
  7. {** Version : 1.0b            ** Started : 11/11/91  ** Ended :   /  /    **}
  8. {***************************************************************************}
  9. {******************************** Description ******************************}
  10. {***************************************************************************}
  11. {** OOP library for Netware API                                           **}
  12. {**                                                                       **}
  13. {** This unit forms the second level object : WORKSTAT                    **}
  14. {** This object is a descandent of          : NETWARE                     **}
  15. {**                                                                       **}
  16. {**                                                                       **}
  17. {**                                                                       **}
  18. {**                                                                       **}
  19. {***************************************************************************}
  20. {******************************** Information ******************************}
  21. {***************************************************************************}
  22. {**                                                                       **}
  23. {**                                                                       **}
  24. {**                                                                       **}
  25. {**                                                                       **}
  26. {** This code is (c) 1991 Tony Covelli,                                   **}
  27. {** Portions (c) Novell Inc,                                              **}
  28. {**                                                                       **}
  29. {**                                                                       **}
  30. {***************************************************************************}
  31.  
  32. {$I NETWARE.INC}
  33.  
  34. UNIT NWWRKSTN;
  35.  
  36. INTERFACE
  37.  
  38. USES
  39.  
  40.   netware, nwvar;
  41.  
  42. TYPE
  43.  
  44.   pWorkStatOBJ = ^WorkStatOBJ;
  45.   WorkStatOBJ  = object (NetwareOBJ)
  46.  
  47.     constructor Init;
  48.     PROCEDURE   EndOfJob                  (Process : WORD);
  49.     FUNCTION    GetConnectionID           (FileServerName : ObjectNameType; VAR ConnectionID : WORD) : WORD;
  50.     FUNCTION    GetDefaultConnectionID : WORD;
  51.     PROCEDURE   GetFileServerName         (ConnectionID : WORD; VAR FileServerName : ObjectNameType);
  52.     FUNCTION    GetNetwareShellVersion    (VAR MajorVersion, MinorVersion, RevisionLevel : BYTE) : WORD;
  53.     FUNCTION    GetNumberOfLocalDrives : WORD;
  54.     FUNCTION    GetPreferredConnectionID : WORD;
  55.     FUNCTION    GetPrimaryConnectionID : WORD;
  56.     PROCEDURE   GetWorkstationEnvironment (VAR OperatingSystemType, OperatingSystemVersion,
  57.                                            HardwareType, ShortHardwareType : String40Type);
  58.     FUNCTION    IsConnectionIDInUse       (ConnectionID : WORD) : WORD;
  59.     FUNCTION    SetEndOfJobStatus         (EndOfJobFlag : BYTE) : BYTE;
  60.     FUNCTION    SetNetwareErrorMode       (ErrorMode : BYTE) : BYTE;
  61.     PROCEDURE   SetPreferredConnectionID  (ConnectionID : WORD);
  62.     PROCEDURE   SetPrimaryConnectionID    (ConnectionID : WORD);
  63.     destructor  Done; virtual;
  64.  
  65.     PRIVATE
  66.  
  67.     FUNCTION    ReadPropertyValue (BinderyObjectName : ObjectNameType; BinderyObjectType : OT_BinderyType;
  68.                                    PropertyName : PropertyNameType; SegmentNumber : WORD;
  69.                                    VAR PropertyValue : PropertyValueType; VAR MoreSegments, PropertyFlags : BYTE) : WORD;
  70.   END;
  71.  
  72.